home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / prc.window0 < prev    next >
Text File  |  2007-03-01  |  472b  |  17 lines
  1. 0010 ╨╥╧├ WINDOW0(FRAME) ├╠╧╙┼─
  2. 0020   ╔═╨╧╥╘ SETWINDOWS //NEEDS SETWINDOWS
  3. 0030   ╒╙┼ GRAPHICS
  4. 0040   //VIEWPORT COORDINATES
  5. 0050   VXMIN:=0; VXMAX:=0
  6. 0060   VYMIN:=0; VYMAX:=0
  7. 0070   //WINDOW COORDINATES
  8. 0080   WXMIN:=0; WXMAX:=0
  9. 0090   WYMIN:=0; WYMAX:=0
  10. 0100   //ADJUSTMENTS FOR OUTER WINDOW0(1)
  11. 0110   //LEFT,RIGHT,BOTTOM,TOP
  12. 0120   L:=-2; R:=2; B:=-2; T:=2
  13. 0130   
  14. 0140   SETWINDOWS(VXMIN,VXMAX,VYMIN,VYMAX,WXMIN,WXMAX,WYMIN,WYMAX,L,R,B,T,FRAME)
  15. 0150 ┼╬─╨╥╧├ 
  16. 0160 
  17.